ВВЕДЕННЯ ( ВИВЕДЕННЯ ДАНИХ
Мета роботи: виробити практичні навики застосування операторів введення ( виведення даних, доступу до файлів, керованого виведення.
ВАРІАНТ 10
ЗАВДАННЯ.
Скласти блок-схему алгоритму, за блок-схемою написати і виконати програму на мові програмування Pascal, що виконує такі дії:
Введення з клавіатури таких даних: назва групи; номер варіанту; прізвище, ім’я, по батькові; задані числові дані.
Виведення даних в текстовий файл.
Після натиснення будь-якої клавіші зчитати дані з файлу.
Вивести їх на дисплей у вікно у відповідності з заданими координатами, кольором фону та літер.
Задано числові дані; 8.12, 56.33E-2, 478.91
Формат виведення всього/дроб. (закономірність): 8/2
Вікно; координати х1, у1, х2, у2: 40,10,80,20, колір фону – червоний, колір літер – чорний.
ПОСТАНОВКА ЗАДАЧІ.
Одночасно з введенням даних з клавіатури здійснити паралельне їх виведення у файл, аналогічно здійснити введення даних з файлу та виведення їх у вікно. Прізвище, ім’я, побатькові вводити як один рядок. Номер варіанту вводити як рядок, наприклад: Варіат 10. Числові дані можна ввести не з клавіатури, а як типізовані константи. Наприклад:
РТ-11[Enter]
Варіант 10[Enter]
Медведик Андрій Ігорович[Enter]
8.12, 56.33E-2, 478.91 [Enter]
РОЗРОБКА СТРУКТУРИ ДАНИХ.
Позначення
Імя
Тип
Призначення
Назва групи
S
рядок
Проміжна,
Номер варіанту
збереження
ПІП
рядка симв.
Числові дані
x1, x2, x3, x4
дійсна
Проміжні
Файл даних
f
текстовий файл
Звязок з файлом
DATA.DAT
РОЗРОБКА АЛГОРИТМУ.
ТЕКСТ ПРОГРАМИ.
Program lab3;
uses crt;
var
f: text;
s: string;
x1,x2,x3,x4: real;
Begin
Assign (f,'dani.dat');
Rewrite (f);
writeln ('vvedit nazvy grypu');
readln (s);
writeln (f,s);
writeln ('vvedit nomer varianty');
readln (s);
writeln(f,s);
writeln ('vvedit PIP');
readln (s);
writeln(f,s);
writeln ('vvedit tru chusla');
readln(x1,x2,x3);
writeln (f, x1:8:2,' ',x2:8:2,' ',x3:8:2);
close(f);
readkey;
{TextBackGround(1)}
ClrScr;
TextBackGround (4);
Window (40,10,80,20);
Textcolor (0);
Reset (f);
readln (f,s);
gotoxy (2,12);
writeln (s);
readln (f,s);
gotoxy (2,14);
writeln (s);
readln (f,s);
gotoxy (2,16);
writeln (s);
readln (f,s);
gotoxy (2,18);
writeln (s);
close(f);
readln;
End.
Міністерство освіти та науки України
Національний університет «Львівська політехніка»
Інститут телекомунікацій, радіоелектроніки та електронної техніки
Кафедра теоретичної радіотехніки та радіовимірювань
Звіт з лабораторної роботи №3
Тема «Введення – виведення даних»
з дисципліни «Інформатика та обчислювальна техніка»
Виконав:
Студент групи РТ-11
Прийняв:
Доц.каф ТРР
Львів-2008
НАЛАГОДЖЕННЯ ТА РЕЗУЛЬТАТИ ТЕСТУВАННЯ.
Висновок: на лабораторній роботі я виробив практичні навики застосування операторів введення ( виведення даних, доступу до файлів, керованого виведення.
